home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / GWU Demos / chop.adb next >
Encoding:
Text File  |  1993-02-03  |  253 b   |  21 lines  |  [TEXT/GADA]
  1. --::::::::::
  2. --chop.adb
  3. --::::::::::
  4. PACKAGE BODY Chop IS
  5.  
  6.   TASK BODY Stick IS
  7.  
  8.   BEGIN
  9.     
  10.     LOOP
  11.       SELECT
  12.         ACCEPT Pick_Up;
  13.         ACCEPT Put_Down;
  14.       OR
  15.         TERMINATE;
  16.       END SELECT;
  17.     END LOOP;
  18.  
  19.   END Stick;
  20.  
  21. END Chop;